(etags-list-tags): Check for explicit tag names.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 75c949f8555abdb7b367cd070f93c7de059b2087..bbcf7e968286a4a2da633d6f4cf89afd83204533 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1020,9 +1020,15 @@ See documentation of variable `tags-file-name'."
       nil
     (forward-line 1)
     (while (not (or (eobp) (looking-at "\f")))
-      (princ (buffer-substring (point)
-                              (progn (skip-chars-forward "^\177")
-                                     (point))))
+      (let ((tag (buffer-substring (point)
+                                  (progn (skip-chars-forward "^\177")
+                                         (point)))))
+       (princ (if (looking-at "[^\n]+\001")
+                  ;; There is an explicit tag name; use that.
+                  (buffer-substring (point)
+                                    (progn (skip-chars-forward "^\001")
+                                           (point)))
+                tag)))
       (terpri)
       (forward-line 1))
     t))